home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip / Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf / ClockUnit / ClockUnitDemo.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-17  |  718b  |  23 lines
  1. {**********************************************************************}
  2. { ClockDemo                                                            }
  3. {                                                                      }
  4. { Demonstrates the use of 'Clockunit'                                  }
  5. {**********************************************************************}
  6. PROGRAM ClockDemo;
  7.  
  8. Uses ClockUnit;
  9.  
  10. VAR
  11.   Hour,Min,Sec   : Word;
  12.   Day,Month,Year : Word;
  13.   WDay           : String;
  14.  
  15. BEGIN
  16.   IF GetTimeDate(Hour,Min,Sec,Day,Month,Year,WDay) THEN
  17.     BEGIN
  18.       Writeln('Current time : ',Hour,':',Min,':',Sec);
  19.       Writeln('Current date : ',Day,'-',Month,'-',Year);
  20.       Writeln('Todays is ',WDay);
  21.     END;
  22. END.
  23.